1 PRINTCHR$(14)"[147]";:EV=0:RE=0
2 POKE 53280,11:POKE53281,11:POKE646,3
3 PRINT"     [200][207][215][160][205][213][195][200][160][211][212][210][197][211][211][160][195][193][206][160][217][207][213][160][212][193][203][197]?"
4 POKE646,1
5 PRINT"[196]R. [212]HOMAS [200]. [200]OLMES DEVISED THIS SCALE"
6 PRINT"ASSIGNING POINT VALUE TO CHANGES, BOTH"
7 POKE646,1
8 PRINT"GOOD AND BAD, THAT OFTEN AFFECT US."
9 PRINT"[215]HEN ENOUGH CHAGES OCCUR DURING ONE"
10 PRINT"ONE YEAR TO ADD UP TO 300 POINTS, A"
11 PRINT"DANGER POINT HAS BEEN REACHED."
12 PRINT"[201]N THE POPULATION HE STUDIED, 80 PER-"
13 PRINT"CENT OF THE PEOPLE WHO EXCEEDED 300 "
14 PRINT"POINTS BECAME SERIOUSLY DEPRESSED OR"
15 PRINT"SUFFERED SERIOUS ILLNESSES."
16 IF EV=11THENRETURN
17 PRINT"    [208]RESS ANY KEY TO CONTINUE..."
18 GETA$
19 IFA$="\"THENP=345:GOTO 156
20 IFA$=""THEN18
21 PRINT"[147][217]OU WILL BE ASKED TO RESPOND [217]ES OR "
22 PRINT"[206]O TO 43 QUESTIONS. [201]F YOUR TOTAL"
23 PRINT"EQUALS OR EXCEEDS 300 POINTS, YOU WILL"
24 PRINT"BE SHOWN [154][199][213][201][196][197][204][201][206][197][211][160][198][207][210][160][204][207][215][160][211][212][210][197][211][211]"
25 PRINT"[204][201][214][201][206][199], 18 SIMPLE SUGGESTIONS FOR"
26 PRINT"LEADING A LESS STRESSFUL LIFE. [198]OR"
27 PRINT"MORE INFORMATION ABOUT THE DANGERS OF"
28 PRINT"STRESS, CONSULT YOUR DOCTOR."
29 PRINT"      [208]RESS ANY KEY TO BEGIN."
30 GOSUB 266
31 POKE646,10
32 PRINT"[147][197][214][197][206][212]    [204][201][198][197]
33 [153]"(null)ATN(null)(null)VAL    VAL(null)VAL(null)(null)
34 PRINT"[163][163][163][163][163]    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 POKE646,1
36 IFRE=1THENRETURN
37 RE=1
38 PRINT" 100     [196]EATH OF SPOUSE (Y/N)"
39 GOSUB150
40 PRINT"  73     [196]IVORCE (Y/N)"
41 GOSUB150
42 PRINT"  65     [205]ARITAL SEPERATION (Y/N)"
43 GOSUB150
44 PRINT"  63     [202]AIL TERM (Y/N)"
45 GOSUB150
46 PRINT"  63     [196]EATH OF CLOSE FAMILY MEMBER"
47 GOSUB150
48 PRINT"  53     [208]ERSONAL INJURY OR ILLNESS"
49 GOSUB150
50 PRINT"  50     [205]ARRIAGE (Y/N)"
51 GOSUB150
52 PRINT"  47     [198]IRED FROM JOB (Y/N)"
53 GOSUB150
54 RE=1
55 GOSUB 31
56 PRINT"  45     [205]ARITAL RECONCILLIATION (Y/N)"
57 GOSUB150
58 PRINT"  45     [210]ETIREMENT (Y/N)"
59 GOSUB150
60 PRINT"  44     [200]EALTH CHANGE IN FAMILY MEMBER"
61 GOSUB150
62 PRINT"  40     [208]REGNANCY (Y/N)"
63 GOSUB150
64 PRINT"  39     [211]EX DIFFICULTIES (Y/N)"
65 GOSUB150
66 PRINT"  39     [199]AIN OF NEW FAMILY MEMBER"
67 GOSUB150
68 PRINT"  39     [194]USINESS READJUSTMENT (Y/N)"
69 GOSUB150
70 PRINT"  38     [195]HANGE IN FINANCIAL STATE (Y/N)"
71 GOSUB150
72 PRINT"  37     [196]EATH OF CLOSE FRIEND (Y/N)"
73 GOSUB150
74 GOSUB 31
75 PRINT"  36     [195]HANGE TO DIFFERENT LINE"
76 PRINT"         OF WORK (Y/N)
77 [141]150
78 [153]"  35     LENHANGE IN NUMBER OF"
79 [153]"         ARGUMENTS WITH SPOUSE (Y/N)"
80 [141]150
81 [153]"  31     (null)ORTGAGE OVER $10,000 (Y/N)"
82 [141]150
83 [153]"  30     ASCORCLOSURE OF MORTGAGE OR LOAN"
84 [141]150
85 [153]"  29     LENHANGE IN RESPONSIBILITIES"
86 [153]"         AT WORK (Y/N)"
87 [141]150
88 [153]"  29     (null)ON OR DAUGHTER LEAVING"
89 [153]"         HOME (Y/N)"
90 [141]150
91 [153]"  29     (null)ROUBLE WITH INLAWS (Y/N)"
92 [141]150
93 [153]"  28     (null)UTSTANDING PERSONAL"
94 [153]"         ACHIEVEMENT (Y/N)"
95 [141]150
96 [141] 31
97 [153]"  28     (null)POUSE BEGIN OR STOP WORK"
98 [141]150
99 [153]"  26     PEEKEGIN OR END SCHOOL (Y/N)"
100 [141]150
101 [153]"  25     LENHANGE IN LIVING"
102 [153]"         CONDITIONS (Y/N)"
103 [141]150
104 [153]"  24     (null)EVISION OF PERSONAL"
105 [153]"         HABITS (Y/N)"
106 [141]150
107 [153]"  23     (null)ROUBLE WITH BOSS (Y/N)"
108 [141]150
109 [153]"  20     LENHANGE IN WORK HOURS"
110 [153]"         OR CONDITONS (Y/N)"
111 [141]150
112 [153]"  20     LENHANGE IN (null)ESIDENCE (Y/N)"
113 [141]150
114 [153]"  20     LENHANGE IN SCHOOLS (Y/N)"
115 [141]150
116 [153]"  19     LENHANGE IN RECREATION (Y/N)"
117 [141]150
118 [141] 31
119 [153]"  19     LENHANGE IN CHURCH ACTIVITIES"
120 [141]150
121 [153]"  18     LENHANGE SOCIAL ACTIVITIES"
122 [141]150
123 [153]"  17     (null)ORTGAGE OR LOAN LESS"
124 [153]"         THAN $10,000 (Y/N)"
125 [141]150
126 [153]"  16     LENHANGE IN SLEEPING HABITS"
127 [141]150
128 [153]"  15     LENHANGE IN THE NUMBER OF"
129 [153]"         FAMILY GET TOGETHERS (Y/N)"
130 [141]150
131 [153]"  15     LENHANGE IN EATING HABITS (Y/N)"
132 [141]150
133 [153]"  13     (null)ACATION (Y/N)"
134 [141]150
135 [153]"  12     LENHRISTMAS (Y/N)"
136 [141]150
137 [153]"  11     (null)INOR VIOLATIONS OF THE LAW"
138 [141]150
139 [153]"LOAD";
140 [139]P[178][177]300 [167] 156
141 [141]3
142 [153]"(null)OUR TOTAL POINTS: ";P
143 [141]266
144 [138]
145 [131] 100,73,65,63,63,53,50,47,45
146 [131] 45,44,40,39,39,39,38,37,36,35
147 [131] 31,30,29,29,29,28,26,26,25,24
148 [131] 23,20,20,20,19,19,18,17,16,15
149 [131] 15,13,12,11
150 [135] EV:A$[178]""
151 [151]198,0:[129]X[178]1[164]999:[130]
152 [161] A$:[139]A$[178]""[167]152
153 [139]A$[178]"N"[167][142]
154 [139]A$[178]"Y"[167]P[178]P[170]EV:[142]
155 [137]151
156 [151]53280,4:[151]53281,4:[151]646,0
157 [153]"LOADRIGHT$N THE POPULATION SAMPLE STR$R. LEFT$OLMES"
158 [153]"USED IN HIS RESEARCH, 80 PER CENT OF"
159 [153]"THE PEOPLE WHO EXCEEDED 300 POINTS"
160 [153]"BECAME SERIOUSLY DEPRESSED OR SUFFERED"
161 [153]"SERIOUS ILLNESSES. (null)OUR POINT SCORE OF"
162 [153]"     INDICATES THAT YOU VERIFYCOULDSTOP BECOME"
163 [153]"SERIOUSLY DEPRESSED OR WORSE. (null)OU SHOULD"
164 [153]"CONSULT WITH YOUR FAMILY DOCTOR. ATNNY "
165 [153]"REAL HELP IS BEYOND THE SCOPE OF THIS"
166 [153]"PROGRAM. LEFT$OWEVER, THE FOLLOWING "
167 [153]"CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null) (null)RIGHT$(null)RIGHT$(null)CHR$ MAY"
168 [153]"BE OF SOME INTEREST. (null)RESS ANY KEY ..."
169 [161]A$:X[178]X[170]1:[139][181](X[173]2)[178]X[173]2[167][153]"";[199](18);P
170 [139]X[173]2[179][177][181](X[173]2)[167][129]Z[178]1[164]40:[130]Z:[153]"";P
171 [139]A$[178]""[167]169
172 [151]646,3:[151]53281,6:[151]53280,6
173 [153]"LOAD   CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null)CLOSE(null)RIGHT$(null)RIGHT$(null)CHR$"
174 [151]646,10
175 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB("
176 [151]646,1:[139] RE[178]2[167][142]
177 [153]"1. (null)AKE TIME YOUR FRIEND, NOT YOUR"
178 [153]"   ENEMY. STR$EVELOP TIME MANGAGEMENT"
179 [153]"   TECHNIQUES."
180 [153]"2. (null)EARN AND PRACTICE THE SKILL OF"
181 [153]"   RELAXATION."
182 [153]"3. VALNGAGE IN ACTIVITIES THAT GIVE "
183 [153]"   YOU A CHANCE TO DO SOMETHING"
184 [153]"   RELAXING OR CREATIVE WITHOUT"
185 [153]"   HAVING TO HAVE SOMETHING TO SHOW"
186 [153]"   FOR IT."
187 [153]"4. STR$ON'T DEVELOP ONE ARE OF YOUR "
188 [153]"   LIFE TO THE EXCLUSION OF OTHERS."
189 [153]"   (null)EEK REWARDING EXPERIENCES IN ALL"
190 [153]"   FACETS OF LIVING."
191 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
192 [141]266
193 RE[178]2:[141] 172
194 [153]"5. ASCIND SOME TIME EVERY DAY FOR"
195 [153]"   PRIVACY. (null)OU NEED TO BE ALONE WITH"
196 [153]"   YOUR THOUGHTS AWAY FROM WORK OR"
197 [153]"   OTHER PRESSURES."
198 [153]"6. ATNSSOCIATE WITH PEOPLE WHO AFFIRM"
199 [153]"   YOUR INDIVIDUALITY AND RESPECT"
200 [153]"   YOUR WANTS AND NEEDS."
201 [153]"7. ASCORM AT LEAST ONE OR TWO HIGH"
202 [153]"   QUALITY RELATIONSHIPS WITH PEOPLE"
203 [153]"   YOU CAN TRUST. (null)EARN TO EXPRESS YOUR"
204 [153]"   TRUE FEELINGS TO THEM."
205 [153]"8. STR$ON'T CONTINUE IN STRESSFUL"
206 [153]"   SITUATIONS WITH FAMILY AND FRIENDS."
207 [153]"   (null)AKE ACTION TO FIND A REOLUTION IN"
208 [153]"   PROBLEM AREAS."
209 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
210 [141]266
211 [141]172
212 [153]"9. CHR$UARD YOUR PERSONAL FREEDOMS - TO"
213 [153]"   CHOOSE YOUR FRIENDS, TO LOVE WHOM"
214 [153]"   YOU CHOOSE, TO STRUCTURE YOUR TIME"
215 [153]"   AS YOU SEE FIT, AND TO CHOOSE YOUR"
216 [153]"   OWN LIFE GOALS."
217 [153]"10. (null)EVIEW YOUR 'OBLIGATIONS' FROM "
218 [153]"    TIME TO TIME AND MAKE SURE THEY"
219 [153]"    ARE ALSO BRINGING REWARDS TO YOU."
220 [153]"    CHR$ET RID OF THE THINGS THAT ONLY"
221 [153]"    BRING SATISFACTION TO SOMEONE ELSE."
222 [153]"11. STR$ON'T LIVE FOR OR THROUGH YOUR"
223 [153]"    CHILDREN, SPOUSE OR ANYONE ELSE."
224 [153]"12. (null)PEN YOURSELF TO NEW EXPERIENCES."
225 [153]"13. STR$EVELOP AND KEEP SENSIBLE EATING"
226 [153]"    HABITS."
227 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
228 [141]266
229 [141]172
230 [153]"14. RIGHT$F YOU SMOKE, CUT DOWN OR STOP."
231 [153]"15. (null)SE LIQUOR SPARINGLY, IF AT ALL."
232 [153]"    STR$ON'T LET IT USE YOU."
233 [153]"16. ASCREE YOURSELF FROM DEPENDENCY ON"
234 [153]"    TRANQUILIZERS, SLEEPING PILLS,"
235 [153]"    HEADACHE PILLS OR OTHER DEPRESSANT"
236 [153]"    DRUGS. PEEKE CAUTIOUS OF THE USE OF"
237 [153]"    LAXITIVES AND COLD REMEDIES. (null)EACH"
238 [153]"    YOUR BODY TO RELAX AND NORMALIZE"
239 [153]"    FUNCTIONS."
240 [153]"17. (null)EE THE HUMOR IN LIFE. (null)AUGH AT "
241 [153]"    YOURSELF WHENEVER YOU GET A CHANCE."
242 [153]"18. (null)RACTICE MAKING POSITIVE SELF"
243 [153]"    STATEMENTS. (null)EMIND YOURSELF THAT"
244 [153]"    (null)(null)(null) ARE WORTHWHILE AND DESRVING"
245 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
246 [141]266
247 [153]"POKE       (null)HE (null)TRESS (null)EST"
248 [153]"OPENLOAD(null)RESS  CHR$ WAIT TO REVIEW THE GUIDLINES.":A$[178]""
249 [153]"(null)RESS  (null) WAIT TO QUIT THE (null)TRESS (null)EST."
250 [153]"(null)RESS  (null) WAIT TO START THE (null)TRESS (null)EST."
251 [153]"LIST(null)HE (null)TRESS (null)EST AND THE CHR$UIDELINES"
252 [153]"ASCOR (null)OW (null)TRESS (null)IVING WERE PRINTED BY"
253 [153]"ASCIRST LEFT$OSPITAL LENORPORATION. (null)HILE NO"
254 [153]"COPYRIGHT NOTICE APPEARED ON EITHER,"
255 [153]"ALL RIGHTS CLAIMED BY ASCIRST LEFT$OSPITAL"
256 [153]"ARE RESERVED AND SHOULD BE RESPECTED."
257 [129]X[178]1[164]100:[130]:A$[178]""
258 [153]"INFORMATION AND ENTERTAINMENT ONLY."
259 [153]"SYSLENONSULT YOUR FAMILY DOCTOR FOR MEDICAL"
260 [153]"ADVICE."
261 [141]266
262 [139]A$[178]"G"[167] RE[178]1:[137]173
263 [139]A$[178]"Q"[167][128]
264 [139]A$[178]"S"[167][138]
265 [137]261
266 [151]198,0
267 [161]A$:[139]A$[178]""[167]267
268 [142]